home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  520b  |  27 lines
  1. 1 rem turtle-demo: 'allee'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 30 !graphics:!init
  6. 40 la=6
  7. 45 bg=4.5:rem groesse der baeume
  8. 50 di=3:rem abstand der baeume
  9. 55 !pen0:!move100,198:!pen1
  10. 60 gosub100
  11. 70 poke198,.:wait198,1:poke198,.
  12. 80 end
  13. 100 ifla=0thenreturn
  14. 110 lb=la:gosub200
  15. 120 !pen0:!turnr45:!walkbg*di*la:!turnl45:!pen1
  16. 130 !pushla:la=la-1:gosub100:!pullla
  17. 140 return
  18. 200 iflb=0thenreturn
  19. 210 !turnl25:!walkbg*lb
  20. 220 !pushlb:lb=lb-1:gosub200:!pulllb
  21. 230 !backbg*lb:!turnr50
  22. 240 !walkbg*lb
  23. 250 !pushlb:lb=lb-1:gosub200:!pulllb
  24. 260 !backbg*lb
  25. 270 !turnl25
  26. 280 return
  27.